home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / DiskMaster / Rexx / FastDMView.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-10-27  |  680 b   |  44 lines
  1. /* ARexx - Script for DiskMaster and Fastview */
  2.  
  3. /*
  4. ** $VER: FastDMView.rexx 3.0 (98-09-26) Rudolph Riedel
  5. **                                      rriedel@on-luebeck.de
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. parse arg Port
  11.  
  12. Fastview="Tools:Fastview"
  13.  
  14. namelist=" "
  15. count=0
  16. viewlist.count=" "
  17.  
  18. Address VALUE Port
  19.  
  20. Status P
  21. path=Result
  22. DirList sel file
  23.  
  24. do i=1 to list.name.0
  25.  namelist=namelist list.name.i
  26.   if length(namelist) > 500 then
  27.    do
  28.     viewlist.count=namelist
  29.     namelist=" "
  30.     count=count+1
  31.     viewlist.count=" "
  32.    end
  33. end
  34.  
  35. viewlist.count=namelist
  36.  
  37. Pragma pragma('d', path)
  38.  
  39. do i=0 to count
  40.  viewlist.i=delstr(viewlist.i,1,2)
  41.  Address Command Fastview viewlist.i
  42. end
  43. Deselect "*"
  44.